# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2019/8/26

source("metabo_base.R")

mSet <- InitDataObjects("conc", "pathora", FALSE)
cmpd.vec <- c("Acetoacetic acid", "Beta-Alanine", "Creatine", "Dimethylglycine", "Fumaric acid", "Glycine", "Homocysteine", "L-Cysteine", "L-Isolucine", "L-Phenylalanine", "L-Serine", "L-Threonine", "L-Tyrosine", "L-Valine", "Phenylpyruvic acid", "Propionic acid", "Pyruvic acid", "Sarcosine")
mSet <- Setup.MapData(mSet, cmpd.vec)
mSet <- CrossReferencing(mSet, "Metabolite")
mSet <- CreateMappingResultTable(mSet)
mSet<-SetKEGG.PathLib(mSet, "hsa")
mSet<-SetMetabolomeFilter(mSet, F)
mSet<-CalculateOraScore(mSet, "rbc", "hyperg")


PlotMetpaPath(mSet, "path_view_0_", "png", 72, width = NA)
